home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / xes120.lha / XES / REXX / FontReq.xdme < prev    next >
Text File  |  1994-11-09  |  455b  |  18 lines
  1. /* FontReq.xdme */
  2. /* Copyright © 1994 Fergus Duniho */
  3.  
  4. if ~show("L","rexxarplib.library") then
  5.     if ~addlib("rexxarplib.library",0,-30,0) then exit
  6.  
  7. options results
  8. address 'XDME.1'
  9. 'rxresult $fontname'
  10. FONT = result
  11. 'rxresult $fontsize'
  12. SIZE = result
  13.  
  14. if GetFont(,,FONT,SIZE,'Select Font ...',,'FIXEDWIDTH',FNT,8,11) = "" then exit
  15. setfont left(FNT.Name, length(FNT.Name) - 5) FNT.YSize
  16. C = 'settvar fontname' FNT.name 'settvar fontsize' FNT.YSize
  17. C
  18.